home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_HDF.idb / usr / freeware / include / hdf / hdf.inc.z / hdf.inc
Encoding:
Text File  |  1999-01-26  |  16.4 KB  |  455 lines
  1. C****************************************************************************
  2. C* NCSA HDF                                                                 *
  3. C* Software Development Group                                               *
  4. C* National Center for Supercomputing Applications                          *
  5. C* University of Illinois at Urbana-Champaign                               *
  6. C* 605 E. Springfield, Champaign IL 61820                                   *
  7. C*                                                                          *
  8. C* For conditions of distribution and use, see the accompanying             *
  9. C* hdf/COPYING file.                                                        *
  10. C*                                                                          *
  11. C****************************************************************************
  12. C
  13. C $Id: hdf.inc,v 1.23 1998/01/13 15:16:14 epourmal Exp $
  14. C
  15. C *-----------------------------------------------------------------------------
  16. C * File:     hdf.inc
  17. C * Purpose:    Fortran header file for HDF routines
  18. C * Contents: 
  19. C *     Tag definitions
  20. C *     Error return codes
  21. C *        Logical constants
  22. C * Remarks: This file can be included with Fortran user programs.  As a
  23. C *          general rule, don't use DFNT constants that don't include a
  24. C *          number in their name.  E.g., don't use DFNT_FLOAT, use
  25. C *          DFNT_FLOAT32 or DFNT_FLOAT64.  The DFNT constants that don't
  26. C *          include numbers are for backward compatibility only.  Also,
  27. C *          there are no current plans to support 128-bit number types.
  28. C *          For more information about constants in this file, see the
  29. C *          equivalent constant declarations in the C include file 'hdf.h'
  30. C *------------------------------------------------------------------------
  31.  
  32.  
  33. C    Error Return Codes 
  34.  
  35.       integer   DFE_NOERROR,   DFE_NONE,        DFE_FNF   
  36.       integer   DFE_DENIED,    DFE_ALROPEN,     DFE_TOOMANY
  37.       integer   DFE_BADNAME,   DFE_BADACC,      DFE_BADOPEN
  38.       integer   DFE_NOTOPEN,   DFE_CANTCLOSE,   DFE_DFNULL
  39.       integer   DFE_ILLTYPE,   DFE_UNSUPPORTED, DFE_BADDDLIST
  40.       integer   DFE_NOTDFFILE, DFE_SEEDTWICE,   DFE_NOSPACE
  41.       integer   DFE_NOSUCHTAG, DFE_READERROR
  42.  
  43.       parameter(DFE_NOERROR      =   0)
  44.       parameter(DFE_NONE         =   0)
  45.       parameter(DFE_FNF             =  -1)
  46.       parameter(DFE_DENIED       =  -2)
  47.       parameter(DFE_ALROPEN      =  -3)
  48.       parameter(DFE_TOOMANY      =  -4)
  49.       parameter(DFE_BADNAME        =  -5)
  50.       parameter(DFE_BADACC       =  -6)
  51.       parameter(DFE_BADOPEN      =  -7)
  52.       parameter(DFE_NOTOPEN      =  -8)
  53.       parameter(DFE_CANTCLOSE    =  -9)
  54.       parameter(DFE_DFNULL       = -10)
  55.       parameter(DFE_ILLTYPE      = -11)
  56.       parameter(DFE_UNSUPPORTED  = -12)
  57.       parameter(DFE_BADDDLIST    = -13)
  58.       parameter(DFE_NOTDFFILE    = -14)
  59.       parameter(DFE_SEEDTWICE    = -15)
  60.       parameter(DFE_NOSPACE      = -16)
  61.       parameter(DFE_NOSUCHTAG    = -17)
  62.       parameter(DFE_READERROR    = -18)
  63.  
  64.       integer    DFE_WRITEERROR,  DFE_SEEKERROR,   DFE_NOFREEDD
  65.       integer   DFE_BADTAG,      DFE_BADREF,      DFE_RDONLY
  66.       integer   DFE_BADCALL,     DFE_BADPTR,      DFE_BADLEN
  67.       integer   DFE_BADSEEK,     DFE_NOMATCH,     DFE_NOTINSET
  68.       integer   DFE_BADDIM,      DFE_BADOFFSET,   DFE_BADSCHEME
  69.       integer   DFE_NODIM,       DFE_NOTENOUGH,   DFE_NOVALS
  70.       integer   DFE_CORRUPT,     DFE_BADFP
  71.  
  72.       parameter(DFE_WRITEERROR           = -19)
  73.       parameter(DFE_SEEKERROR            = -20)
  74.       parameter(DFE_NOFREEDD             = -21)
  75.       parameter(DFE_BADTAG               = -22)
  76.       parameter(DFE_BADREF               = -23)
  77.       parameter(DFE_RDONLY               = -24)
  78.       parameter(DFE_BADCALL              = -25)
  79.       parameter(DFE_BADPTR               = -26)
  80.       parameter(DFE_BADLEN               = -27)
  81.       parameter(DFE_BADSEEK              = -28)
  82.       parameter(DFE_NOMATCH              = -29)
  83.       parameter(DFE_NOTINSET             = -30)
  84.       parameter(DFE_BADDIM               = -31)
  85.       parameter(DFE_BADOFFSET            = -32)
  86.       parameter(DFE_BADSCHEME            = -33)
  87.       parameter(DFE_NODIM                = -34)
  88.       parameter(DFE_NOTENOUGH            = -35)
  89.       parameter(DFE_NOVALS               = -36)
  90.       parameter(DFE_CORRUPT              = -37)
  91.       parameter(DFE_BADFP                = -38)
  92.  
  93.       integer    DFE_NOREF,       DFE_BADDATATYPE, DFE_BADMCTYPE
  94.       integer   DFE_BADNUMTYPE,  DFE_BADORDER,    DFE_ARGS
  95.       integer   DFE_INTERNAL,    DFE_DUPDD,       DFE_CANTMOD
  96.       integer   DFE_RANGE,       DFE_BADTABLE,    DFE_BADSDG
  97.       integer   DFE_BADNDG,      DFE_BADFIELDS,   DFE_NORESET
  98.       integer   DFE_NOVS,        DFE_VGSIZE,      DFE_DIFFFILES
  99.       integer   DFE_VTAB,        DFE_BADAID
  100.  
  101.       parameter(DFE_NOREF                = -39)
  102.       parameter(DFE_BADDATATYPE          = -40)
  103.       parameter(DFE_BADMCTYPE            = -41)
  104.       parameter(DFE_BADNUMTYPE           = -42)
  105.       parameter(DFE_BADORDER             = -43)
  106.       parameter(DFE_ARGS                 = -44)
  107.       parameter(DFE_INTERNAL             = -45)
  108.       parameter(DFE_DUPDD                = -46)
  109.       parameter(DFE_CANTMOD              = -47)
  110.       parameter(DFE_RANGE                = -48)
  111.       parameter(DFE_BADTABLE             = -49)
  112.       parameter(DFE_BADSDG               = -50)
  113.       parameter(DFE_BADNDG               = -51)
  114.       parameter(DFE_BADFIELDS            = -52)
  115.       parameter(DFE_NORESET              = -53)
  116.       parameter(DFE_NOVS                 = -54)
  117.       parameter(DFE_VGSIZE               = -55)
  118.       parameter(DFE_DIFFFILES            = -56)
  119.       parameter(DFE_VTAB                 = -57)
  120.       parameter(DFE_BADAID               = -58)
  121.  
  122.       integer   DFE_OPENAID, DFE_BADCONV, DFE_GENAPP, DFE_CANTFLUSH
  123.       integer   DFE_BADTYPE, DFE_SYMSIZE, DFE_BADATTACH
  124.       integer   DFE_CANTDETACH
  125.  
  126.       parameter(DFE_OPENAID              = -59)
  127.       parameter(DFE_BADCONV              = -60)
  128.       parameter(DFE_GENAPP               = -61)
  129.       parameter(DFE_CANTFLUSH            = -62)
  130.       parameter(DFE_BADTYPE              = -63)
  131.       parameter(DFE_SYMSIZE              = -64)
  132.       parameter(DFE_BADATTACH            = -65)
  133.       parameter(DFE_CANTDETACH           = -66)
  134.  
  135. C internal file access codes
  136.  
  137.       integer     DFACC_READ, DFACC_WRITE, DFACC_CREATE, DFACC_ALL  
  138.       integer    DFACC_RDONLY, DFACC_RDWR, DFACC_CLOBBER
  139.  
  140.       parameter(DFACC_READ               = 1)
  141.       parameter(DFACC_WRITE              = 2)
  142.       parameter(DFACC_CREATE             = 4)
  143.       parameter(DFACC_ALL                = 7)
  144.       parameter(DFACC_RDONLY             = 1)
  145.       parameter(DFACC_RDWR               = 3)
  146.       parameter(DFACC_CLOBBER            = 4)
  147.  
  148. C    Access types for SDsetaccesstype
  149.  
  150.       integer    DFACC_DEFAULT, DFACC_SERIAL, DFACC_PARALLEL
  151.       parameter(DFACC_DEFAULT           = 0)
  152.       parameter(DFACC_SERIAL            = 1)
  153.       parameter(DFACC_PARALLEL            = 9)
  154.  
  155. C    Constants for DFSDsetorder
  156.  
  157.       integer     DFO_FORTRAN, DFO_C
  158.  
  159.       parameter(DFO_FORTRAN            = 1)
  160.       parameter(DFO_C                  = 2)
  161.  
  162. C    Definitions of storage convention
  163.  
  164.       integer    DFNTF_IEEE, DFNTF_VAX, DFNTF_CRAY, DFNTF_PC
  165.       integer   DFNTF_CONVEX, DFNTF_VP
  166.  
  167.       parameter(DFNTF_IEEE             = 1)
  168.       parameter(DFNTF_VAX              = 2)
  169.       parameter(DFNTF_CRAY             = 3)
  170.       parameter(DFNTF_PC               = 4)
  171.       parameter(DFNTF_CONVEX           = 5)
  172.       parameter(DFNTF_VP               = 6)
  173.  
  174. C       Masks for types
  175.  
  176.       integer   DFNT_HDF, DFNT_NATIVE, DFNT_CUSTOM, DFNT_LITEND
  177.  
  178.       parameter(DFNT_HDF                 = 0)
  179.       parameter(DFNT_NATIVE              = 4096)
  180.       parameter(DFNT_CUSTOM              = 8192)
  181.       parameter(DFNT_LITEND              = 16384)
  182.  
  183. C    Number type info codes 
  184.  
  185.       integer    DFNT_NONE, DFNT_QUERY, DFNT_VERSION
  186.  
  187.       parameter(DFNT_NONE       = 0)
  188.       parameter(DFNT_QUERY      = 0)
  189.       parameter(DFNT_VERSION    = 1)
  190.       
  191.       integer   DFNT_FLOAT32, DFNT_FLOAT, DFNT_FLOAT64
  192.       integer   DFNT_DOUBLE,  DFNT_FLOAT128
  193.  
  194.       parameter(DFNT_FLOAT32    = 5)
  195.       parameter(DFNT_FLOAT      = 5)
  196.       parameter(DFNT_FLOAT64    = 6)
  197.       parameter(DFNT_DOUBLE     = 6)
  198.       parameter(DFNT_FLOAT128   = 7)
  199.  
  200.       integer   DFNT_INT8,  DFNT_UINT8
  201.       integer   DFNT_INT16, DFNT_UINT16
  202.       integer   DFNT_INT32, DFNT_UINT32
  203.       integer   DFNT_INT64, DFNT_UINT64
  204.       integer   DFNT_INT128,DFNT_UINT128
  205.  
  206.       parameter(DFNT_INT8       = 20)
  207.       parameter(DFNT_UINT8      = 21)
  208.       parameter(DFNT_INT16      = 22)
  209.       parameter(DFNT_UINT16     = 23)
  210.       parameter(DFNT_INT32      = 24)
  211.       parameter(DFNT_UINT32     = 25)
  212.       parameter(DFNT_INT64      = 26)
  213.       parameter(DFNT_UINT64     = 27)
  214.       parameter(DFNT_INT128     = 28)
  215.       parameter(DFNT_UINT128    = 29)
  216.  
  217.       integer     DFNT_UCHAR8, DFNT_UCHAR, DFNT_CHAR8
  218.       integer   DFNT_CHAR,   DFNT_CHAR16, DFNT_UCHAR16
  219.  
  220.       parameter(DFNT_UCHAR8     = 3)
  221.       parameter(DFNT_UCHAR      = 3)
  222.       parameter(DFNT_CHAR8      = 4)
  223.       parameter(DFNT_CHAR       = 4)
  224.       parameter(DFNT_CHAR16     = 42)
  225.       parameter(DFNT_UCHAR16    = 43)
  226.  
  227.       integer    DFNT_NFLOAT32, DFNT_NFLOAT, DFNT_NFLOAT64
  228.       integer    DFNT_NDOUBLE,  DFNT_NFLOAT128
  229.  
  230.       parameter(DFNT_NFLOAT32   = 4101)
  231.       parameter(DFNT_NFLOAT     = 4101)
  232.       parameter(DFNT_NFLOAT64   = 4102)
  233.       parameter(DFNT_NDOUBLE    = 4102)
  234.       parameter(DFNT_NFLOAT128  = 4103)
  235.  
  236.       integer    DFNT_NINT8,  DFNT_NUINT8
  237.       integer    DFNT_NINT16, DFNT_NUINT16
  238.       integer    DFNT_NINT32, DFNT_NUINT32
  239.       integer    DFNT_NINT64, DFNT_NUINT64
  240.       integer    DFNT_NINT128,DFNT_NUINT128
  241.  
  242.       parameter(DFNT_NINT8       = 4116)
  243.       parameter(DFNT_NUINT8      = 4117)
  244.       parameter(DFNT_NINT16      = 4118)
  245.       parameter(DFNT_NUINT16     = 4119)
  246.       parameter(DFNT_NINT32     = 4120)
  247.       parameter(DFNT_NUINT32     = 4121)
  248.       parameter(DFNT_NINT64      = 4122)
  249.       parameter(DFNT_NUINT64     = 4123)
  250.       parameter(DFNT_NINT128     = 4124)
  251.       parameter(DFNT_NUINT128    = 4125)
  252.  
  253.       integer     DFNT_NUCHAR8, DFNT_NUCHAR, DFNT_NCHAR8
  254.       integer    DFNT_NCHAR,   DFNT_NCHAR16, DFNT_NUCHAR16
  255.  
  256.       parameter(DFNT_NUCHAR8  = 4099)
  257.       parameter(DFNT_NUCHAR   = 4099)
  258.       parameter(DFNT_NCHAR8   = 4100)
  259.       parameter(DFNT_NCHAR    = 4100)
  260.       parameter(DFNT_NCHAR16  = 4138)
  261.       parameter(DFNT_NUCHAR16 = 4139)
  262.  
  263.       integer    DFNT_LFLOAT32, DFNT_LFLOAT, DFNT_LFLOAT64
  264.       integer    DFNT_LDOUBLE,  DFNT_LFLOAT128
  265.  
  266.       parameter(DFNT_LFLOAT32  = 16389)
  267.       parameter(DFNT_LFLOAT    = 16389)
  268.       parameter(DFNT_LFLOAT64  = 16390)
  269.       parameter(DFNT_LDOUBLE   = 16390)
  270.       parameter(DFNT_LFLOAT128 = 16391)
  271.  
  272.       integer   DFNT_LINT8,DFNT_LUINT8,DFNT_LINT16,DFNT_LUINT16
  273.       integer   DFNT_LINT32,DFNT_LUINT32,DFNT_LINT64,DFNT_LUINT64
  274.       integer   DFNT_LINT128,DFNT_LUINT128
  275.  
  276.       parameter(DFNT_LINT8      = 16404)
  277.       parameter(DFNT_LUINT8     = 16405)
  278.       parameter(DFNT_LINT16     = 16406)
  279.       parameter(DFNT_LUINT16    = 16407)
  280.       parameter(DFNT_LINT32     = 16408)
  281.       parameter(DFNT_LUINT32    = 16409)
  282.       parameter(DFNT_LINT64     = 16410)
  283.       parameter(DFNT_LUINT64    = 16411)
  284.       parameter(DFNT_LINT128    = 16412)
  285.       parameter(DFNT_LUINT128   = 16413)
  286.  
  287.       integer     DFNT_LUCHAR8, DFNT_LUCHAR, DFNT_LCHAR8
  288.       integer    DFNT_LCHAR,   DFNT_LCHAR16, DFNT_LUCHAR16
  289.  
  290.       parameter(DFNT_LUCHAR8    = 16387)
  291.       parameter(DFNT_LUCHAR     = 16387)
  292.       parameter(DFNT_LCHAR8     = 16388)
  293.       parameter(DFNT_LCHAR      = 16388)
  294.       parameter(DFNT_LCHAR16    = 16426)
  295.       parameter(DFNT_LUCHAR16   = 16427)
  296.  
  297. C    tags and refs
  298.  
  299.       integer     DFREF_WILDCARD, DFTAG_WILDCARD, DFTAG_NULL
  300.       integer    DFTAG_LINKED, DFTAG_VERSION, DFTAG_COMPRESSED
  301.  
  302.       parameter(DFREF_WILDCARD  = 0, DFTAG_WILDCARD  = 0)
  303.       parameter(DFTAG_NULL      = 1, DFTAG_LINKED    = 20)
  304.       parameter(DFTAG_VERSION   = 30,DFTAG_COMPRESSED = 40)
  305.  
  306.  
  307. C    utility set
  308.  
  309.       integer    DFTAG_FID, DFTAG_FD,  DFTAG_TID, DFTAG_TD
  310.       integer    DFTAG_DIL, DFTAG_DIA, DFTAG_NT,  DFTAG_MT
  311.  
  312.       parameter(DFTAG_FID       = 100, DFTAG_FD        = 101)
  313.       parameter(DFTAG_TID       = 102, DFTAG_TD        = 103)
  314.       parameter(DFTAG_DIL       = 104, DFTAG_DIA       = 105)
  315.       parameter(DFTAG_NT        = 106, DFTAG_MT        = 107)
  316.  
  317. C     raster-8 set 
  318.  
  319.       integer    DFTAG_ID8, DFTAG_IP8, DFTAG_RI8
  320.       integer    DFTAG_CI8, DFTAG_II8
  321.  
  322.       parameter(DFTAG_ID8       = 200, DFTAG_IP8       = 201)
  323.       parameter(DFTAG_RI8       = 202, DFTAG_CI8       = 203)
  324.       parameter(DFTAG_II8       = 204)
  325.  
  326. C    Raster Image set
  327.  
  328.       integer    DFTAG_ID, DFTAG_LUT, DFTAG_RI, DFTAG_CI
  329.  
  330.       parameter(DFTAG_ID        = 300, DFTAG_LUT       = 301)
  331.       parameter(DFTAG_RI        = 302, DFTAG_CI        = 303)
  332.  
  333.       integer    DFTAG_RIG, DFTAG_LD,  DFTAG_MD, DFTAG_MA
  334.       integer    DFTAG_CCN, DFTAG_CFM, DFTAG_AR
  335.   
  336.       parameter(DFTAG_RIG       = 306, DFTAG_LD        = 307)
  337.       parameter(DFTAG_MD        = 308, DFTAG_MA        = 309)
  338.       parameter(DFTAG_CCN       = 310, DFTAG_CFM       = 311)
  339.       parameter(DFTAG_AR        = 312)
  340.  
  341.       integer    DFTAG_DRAW, DFTAG_RUN, DFTAG_XYP, DFTAG_MTO
  342.  
  343.       parameter(DFTAG_DRAW      = 400, DFTAG_RUN       = 401)
  344.       parameter(DFTAG_XYP       = 500, DFTAG_MTO       = 501)
  345.  
  346. C    Tektronix 
  347.  
  348.       integer    DFTAG_T14, DFTAG_T105
  349.  
  350.       parameter(DFTAG_T14       = 602, DFTAG_T105      = 603)
  351.  
  352. C    Scientific Data set 
  353.  
  354.       integer   DFTAG_SDG, DFTAG_SDD, DFTAG_SD, DFTAG_SDS, DFTAG_SDL
  355.       integer   DFTAG_SDU, DFTAG_SDF, DFTAG_SDM, DFTAG_SDC
  356.       integer   DFTAG_SDT,DFTAG_SDLNK,DFTAG_NDG
  357.       integer   DFTAG_BREQ,DFTAG_EREQ,DFTAG_CAL, DFTAG_FV
  358.  
  359.       parameter(DFTAG_SDG       = 700, DFTAG_SDD       = 701)
  360.       parameter(DFTAG_SD        = 702, DFTAG_SDS       = 703)
  361.       parameter(DFTAG_SDL       = 704, DFTAG_SDU       = 705)
  362.       parameter(DFTAG_SDF       = 706, DFTAG_SDM       = 707)
  363.       parameter(DFTAG_SDC       = 708, DFTAG_SDT       = 709)
  364.       parameter(DFTAG_SDLNK     = 710, DFTAG_NDG       = 720)
  365.       parameter(DFTAG_CAL       = 731, DFTAG_FV        = 732)
  366.       parameter(DFTAG_BREQ      = 799, DFTAG_EREQ      = 780)
  367.  
  368. C    VSets 
  369.  
  370.       integer    DFTAG_VG, DFTAG_VH, DFTAG_VS
  371.  
  372.       parameter(DFTAG_VG        = 1965, DFTAG_VH        = 1962)
  373.       parameter(DFTAG_VS        = 1963)
  374.  
  375. C    compression schemes 
  376.  
  377.       integer    DFTAG_RLE, DFTAG_IMC, DFTAG_IMCOMP, DFTAG_JPEG
  378.       integer   DFTAG_GREYJPEG
  379.  
  380.       parameter(DFTAG_RLE       =11, DFTAG_IMC       =12)
  381.       parameter(DFTAG_IMCOMP       =12, DFTAG_JPEG      =13)
  382.       parameter(DFTAG_GREYJPEG     =14)
  383.  
  384. C    SPECIAL CODES 
  385.  
  386.       integer    SPECIAL_LINKED, SPECIAL_EXT
  387.  
  388.       parameter(SPECIAL_LINKED     = 1, SPECIAL_EXT     = 2)
  389.  
  390. C    PARAMETERS 
  391.  
  392.       integer    DF_MAXFNLEN
  393.       integer   SD_UNLIMITED
  394.       integer   SD_DIMVAL_BW_COMP
  395.       integer   SD_DIMVAL_BW_INCOMP 
  396.       integer   SD_FILL
  397.       integer   SD_NOFILL
  398.  
  399.       parameter(DF_MAXFNLEN     = 256, SD_UNLIMITED    = 0)
  400.       parameter(SD_DIMVAL_BW_COMP = 1, SD_DIMVAL_BW_INCOMP = 0)
  401.       parameter(SD_FILL           = 0, SD_NOFILL = 256)
  402.  
  403.       integer   HDF_VDATA
  404.       
  405.       parameter(HDF_VDATA = -1)
  406.  
  407. C       Standard return codes       
  408.       integer    SUCCEED, FAIL  
  409.  
  410.       parameter(SUCCEED         = 0, FAIL         = -1)
  411.  
  412.  
  413. C    Compression Types 
  414.  
  415.       integer    COMP_NONE, COMP_RLE, COMP_IMCOMP, COMP_JPEG
  416.  
  417.       parameter(COMP_NONE       = 0, COMP_RLE        = 11)
  418.       parameter(COMP_IMCOMP     = 12, COMP_JPEG       = 2)
  419. C
  420. C       Fortran chunking (SD and GR interfaces) and compression routines use
  421. C       the following compression types:
  422. C
  423.       integer COMP_CODE_NONE, COMP_CODE_RLE, COMP_CODE_NBIT
  424.       integer COMP_CODE_SKPHUFF, COMP_CODE_DEFLATE
  425.       parameter (COMP_CODE_NONE = 0)
  426.       parameter (COMP_CODE_RLE  = 1)
  427.       parameter (COMP_CODE_NBIT = 2)
  428.       parameter (COMP_CODE_SKPHUFF = 3)
  429.       parameter (COMP_CODE_DEFLATE = 4)
  430. C
  431. C    Interlace Types 
  432.  
  433.       integer    MFGR_INTERLACE_PIXEL, MFGR_INTERLACE_LINE
  434.       integer   MFGR_INTERLACE_COMPONENT
  435.  
  436.       parameter(MFGR_INTERLACE_PIXEL    = 0)
  437.       parameter(MFGR_INTERLACE_LINE     = 1)
  438.       parameter(MFGR_INTERLACE_COMPONENT= 2)
  439.  
  440.       integer    FULL_INTERLACE, NO_INTERLACE
  441.  
  442.       parameter(FULL_INTERLACE    = 0, NO_INTERLACE = 1)
  443.  
  444. C       Vdata fields packing types
  445.       integer   HDF_VSPACK, HDF_VSUNPACK
  446.       parameter (HDF_VSPACK   = 0, HDF_VSUNPACK = 1)
  447.  
  448. C    Multi-file Annotation types
  449.       integer AN_DATA_LABEL, AN_DATA_DESC, AN_FILE_LABEL, AN_FILE_DESC
  450.  
  451.       parameter(AN_DATA_LABEL = 0, AN_DATA_DESC  = 1)
  452.       parameter(AN_FILE_LABEL = 2, AN_FILE_DESC  = 3)
  453.  
  454. c******************End of hdf.inc***************************
  455.